home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 3 / ct-rom iiib.zip / ct-rom iiib / WINDOWS / DIVERSEN / WINE02BX / HOLIDAY.ELC < prev    next >
Text File  |  1993-03-28  |  13KB  |  81 lines
  1. ;;; compiled by jwz@thalidomide on Thu Jul  2 14:38:47 1992
  2. ;;; from file /u/jwz/emacs19/lisp/calendar/holiday.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴!ê┬├!ç" [require calendar provide holidays] 2)
  14. (fset 'holidays #[nil "è└ ┬    !─    !╞ ,ç" [calendar-current-date date extract-calendar-month displayed-month extract-calendar-year displayed-year list-calendar-holidays] 2 "\
  15. Display the holidays for last month, this month, and next month.
  16. This function is suitable for execution in a .emacs file." nil])
  17. (fset 'check-calendar-holidays #[(date) "└    !├    !┼ ╟½¢╔    @@\"½è╩@A\"Aë¼e,ç" [extract-calendar-month date displayed-month extract-calendar-year displayed-year calendar-holiday-list h nil holiday-list calendar-date-equal append] 4 "\
  18. Check the list of holidays for any that occur on DATE.
  19. The value returned is a list of strings of relevant holiday descriptions.
  20. The holidays are those in the list calendar-holidays."])
  21. (fset 'calendar-cursor-holidays #[nil "└┴!ê┬ ─ !╞ !╚╔╩# ╠═ #¼å└╧\"¬║G╨ X½å└!¬¼╤!qê╙╠╒\"╫ ê╚╔╪#cêebê┘╙!ê┌█!ê└▄!-ç" [message "Checking holidays..." calendar-cursor-to-date date calendar-date-string date-string check-calendar-holidays holiday-list mapconcat identity ";  " holiday-string format "%s:  %s" msg "No holidays known for %s" screen-width get-buffer-create holiday-buffer nil buffer-read-only "--------------------------%s%%-" mode-line-format erase-buffer "\n" set-buffer-modified-p t display-buffer "Checking holidays...done"] 4 "\
  22. Find holidays for the date specified by the cursor in the calendar window." nil])
  23. (fset 'mark-calendar-holidays #[nil "└┬├!ê─ ë½Ä╞@@\"êAë¼r)┬╚!ç" [t mark-holidays-in-calendar message "Marking holidays..." calendar-holiday-list holiday-list mark-visible-calendar-date calendar-holiday-marker "Marking holidays...done"] 4 "\
  24. Mark notable days in the calendar window." nil])
  25. (fset 'list-calendar-holidays #[nil "└┴!ê┬  ë    ¼ç└╩!ê╦¬Σ╠!qê╦╧_╨\\\\ë╧ªT╧Ñ)╧_\\ë╧ªT╧Ñ)╥╙╘!╘!%╓ ê╫╪    ┘#cêebê┌╦!ê█▄!ê└▌!ê█-ç" [message "Looking up holidays..." calendar-holiday-list displayed-month displayed-year y2 m2 y1 m1 holiday-list "Looking up holidays...none found" nil get-buffer-create holiday-buffer buffer-read-only 12 -2 macro-y format "-------------Notable Dates from %s, %d to %s, %d%%-" calendar-month-name mode-line-format erase-buffer mapconcat #[(x) "└    @!┬    A@Qç" [calendar-date-string x ": "] 3] "\n" set-buffer-modified-p t display-buffer "Looking up holidays...done"] 7 "\
  26. Create a buffer containing the holidays for the current calendar window.
  27. The holidays are those in the list calendar-notable-days.  Returns t if any
  28. holidays are found, nil if not." nil])
  29. (fset 'calendar-holiday-list #[nil "┴ë½¼─┼╞ @@\"! @A½ê @A!¬â ë½å╔\n\"* Aë¼T╩\n╦\"ë*ç" [calendar-holidays nil holiday-list p intern format "calendar-holiday-function-%s" function-name holidays append sort calendar-date-compare] 5 "\
  30. Form the list of holidays that occur on dates in the calendar window.
  31. The holidays are those in the list calendar-holidays."])
  32. (fset 'calendar-holiday-function-fixed #[(x) "└    @!└    A@!└    AA@!ë╔_╩\nZ╦\\\\\\ë ╔ªT ╔Ñ)═V¡ê\n E DC-ç" [eval x month day string displayed-month m displayed-year y 12 11 -1 macro-y 9] 5 "\
  33. Returns the corresponding Gregorian date, if visible in the window, to
  34. month, year where month is (car X) and year is (car (cdr X)).  If it is
  35. visible, the value returned is the list (((month day year) string)) where
  36. string is (car (nthcdr 2 X)).  Returns nil if it is not visible in the
  37. current calendar window."])
  38. (fset 'calendar-holiday-function-float #[(x) "└    @!└    A@!└    AA@!└┼    ¢@!    ë\n╦_╠\nZ═\\\\\\ë╦ªT╦Ñ\n)╧V¡ï╨ \n\n$DC.ç" [eval x month dayname n 3 string displayed-month m displayed-year y 12 11 -1 macro-y 9 calendar-nth-named-day] 6 "\
  39. Returns the corresponding Gregorian date, if visible in the window, to the
  40. n-th occurrence (negative counts from the end of the month) of dayname in
  41. month, year where month is (car X), year is (car (cdr X)), n is
  42. (car (nthcdr 2 X)).  If it is visible, the value returned is the list
  43. (((month day year) string)) where string is (car (nthcdr 3 X)).
  44. Returns nil if it is not visible in the current calendar window."])
  45. (fset 'calendar-holiday-function-julian #[(x) "└    @!└    A@!└    AA@!    \n╦ ═_╬\\\\ë═ªT═Ñ)\n═_    \\ë═ªT    ═Ñ\n)╨╤E!╨    ╙    \n\"\nE!╒!╒!╪!╪!█\nW½ä¬é ▄▌\n  E!!▀!¡à DC.ç" [eval x month day string displayed-month m1 displayed-year y1 m2 y2 nil year 12 -2 macro-y calendar-absolute-from-gregorian 1 start-date calendar-last-day-of-month end-date calendar-julian-from-absolute julian-start julian-end extract-calendar-year julian-y1 julian-y2 10 calendar-gregorian-from-absolute calendar-absolute-from-julian date calendar-date-is-visible-p] 6 "\
  46. Returns the corresponding Gregorian date, if visible in the window, to the
  47. Julian date month, year where month is (car X) and year is (car (cdr X)).
  48. If it is visible, the value returned is the list (((month day year) string))
  49. where string is (car (nthcdr 2 X)).  Returns nil if it is not visible in the
  50. current calendar window."])
  51. (fset 'calendar-holiday-function-islamic #[(x) "└    @!└    A@!└    AA@!┼╞╚    E!!\n╦\n! ═\n!╧ ╤W?¡╣╥_ ╙\nZ╘\\\\\\ë╥ªT ╥Ñ) ╓V¡ù╫╪\n E!!┘!¡à DC).ç" [eval x month day string calendar-islamic-from-absolute calendar-absolute-from-gregorian displayed-month 15 displayed-year islamic-date extract-calendar-month m extract-calendar-year y nil date 1 12 10 -1 macro-y 7 calendar-gregorian-from-absolute calendar-absolute-from-islamic calendar-date-is-visible-p] 6 "\
  52. Returns the corresponding Gregorian date, if visible in the window, to the
  53. Islamic date month, day where month is (car X) and day is (car (cdr X)).
  54. If it is visible, the value returned is the list (((month day year) string))
  55. where string is (car (nthcdr 2 X)).  Returns nil if it is not visible in
  56. the current calendar window."])
  57. (fset 'calendar-holiday-function-hebrew #[(x) "└    @!└    A@!└    AA@!╞\nW½à\n╞Z¬â\n╟\\╚\nW½à\n╚Z¬â\n╔\\╩\nW½à\n╩Z¬â\n╦\\╠\nW½à\n╠Z¬â\n═\\╬\nW½à\n╬Z¬â\n╧\\»>à∩╤╫_╪\\\\ë╫ªT╫Ñ)╫_\\ë╫ªT╫Ñ)┌╟E!┌▄\"E!▐!▐! ß!\"ß !#Σ\nW½ä#¬é\"σµ\n E!!'Φ'!¡à' DC. +ç" [eval x month day string displayed-month 11 1 10 2 9 3 8 4 7 5 displayed-year nil year y2 m2 y1 m1 12 -2 macro-y calendar-absolute-from-gregorian start-date calendar-last-day-of-month end-date calendar-hebrew-from-absolute hebrew-start hebrew-end extract-calendar-year hebrew-y1 hebrew-y2 6 calendar-gregorian-from-absolute calendar-absolute-from-hebrew date calendar-date-is-visible-p] 8 "\
  58. Returns the corresponding Gregorian date, if visible in the window, to the
  59. Hebrew date month, day where month is (car X) and day is (car (cdr X)).
  60. If it is visible, the value returned is the list (((month day year) string))
  61. where string is (car (nthcdr 2 X)).  Returns nil if it is not visible in
  62. the current calendar window."])
  63. (fset 'calendar-holiday-function-if #[(x) "└    @!ë½à    A@¬ä    AA@ë¡ÿ─┼╞ @\"! A½ç A!¬â )*ç" [eval x boolean h intern format "calendar-holiday-function-%s" function-name] 5 "\
  64. Conditional holiday for dates in the calendar window.
  65. The boolean condition is (car X).  If t, the holiday (car (cdr X)) is
  66. checked.  If nil, the holiday (car (cdr (cdr X))), if there, is checked."])
  67. (fset 'calendar-holiday-function-advent #[nil "    ë─_\n┼\\\\ë─ªT─Ñ)╟╚╔╩─╦ E!\"! ═ !¡à ╬DC+ç" [displayed-year displayed-month month year 12 -2 macro-y calendar-gregorian-from-absolute calendar-dayname-on-or-before 0 calendar-absolute-from-gregorian 3 advent calendar-date-is-visible-p "Advent"] 8 "\
  68. Date of Advent, if visible in calendar window."])
  69. (fset 'calendar-holiday-function-easter-etc #[nil "┴V¡é\n??à ─ÑT ╞ª╟_╚_╔Ñ[╩_┴\\╦Ñ╠_═\\\\\\\\╠ªë╧U¼ì╨U½î╤ ╞ªW½àT¬é╙╔╞ E!Z╒╧╓\\\"╪!┘D╪┌Z!█D╪▄Z!▌DE╪▀Z!αD╪ßZ!ΓD╪πZ!ΣD╪σZ!µD╪τZ!ΦD╪═Z!ΘD╪╓Z!ΩD╪╚Z!δD╪∞\\!φD╪ε\\!∩D╪π\\!≡D╪±\\!≥D╪ß\\!≤D╪⌠\\!⌡D»6≈!8\n½è∙≈6!8\"88.ç" [displayed-month 5 all-christian-calendar-holidays displayed-year 100 century 19 11 3 4 8 25 30 14 shifted-epact 0 1 10 adjusted-epact calendar-absolute-from-gregorian paschal-moon calendar-dayname-on-or-before 7 abs-easter calendar-gregorian-from-absolute "Easter Sunday" 2 "Good Friday" 46 "Ash Wednesday" mandatory 63 "Septuagesima Sunday" 56 "Sexagesima Sunday" 49 "Shrove Sunday" 48 "Shrove Monday" 47 "Shrove Tuesday" "Passion Sunday" "Palm Sunday" "Maundy Thursday" 35 "Rogation Sunday" 39 "Ascension Sunday" "Pentecost (Whitsunday)" 50 "Whitmunday" "Trinity Sunday" 60 "Corpus Christi" optional filter-visible-calendar-holidays output-list append] 17 "\
  70. List of dates related to Easter, as visible in calendar window."])
  71. (fset 'calendar-holiday-function-rosh-hashanah-etc #[nil "┴W«â┬V?à█├─┼╟\\E!╔!╩╦╟\\\"D╔╠\\!═D╔╬\\!╧D╔╨\\!╤D╔╥\\!╙D»╔╒╓S\"!╫D╔S!╪D╔T!┘D╔─ª┌U½å█\\¬ä▄\\!▌D╔╒╓─\\\"!▐D╔┴\\!▀D╔α\\!ßD╔Γ\\!πD╔Σ\\!σD╔µ\\!τD╔Φ\\!ΘD╔Ω\\!δD╔∞\\!φD».∩!01½è≥∩.!0\"00,ç" [displayed-month 8 11 calendar-absolute-from-hebrew 7 1 displayed-year 3761 abs-r-h calendar-gregorian-from-absolute format "Rosh HaShanah %d" 9 "Yom Kippur" 14 "Sukkot" 21 "Shemini Atzeret" 22 "Simchat Torah" mandatory calendar-dayname-on-or-before 6 "Selichot (night)" "Erev Rosh HaShannah" "Rosh HaShanah (second day)" 4 3 2 "Tzom Gedaliah" "Shabbat Shuvah" "Erev Yom Kippur" 13 "Erev Sukkot" 15 "Sukkot (second day)" 16 "Hol Hamoed Sukkot (first day)" 17 "Hol Hamoed Sukkot (second day)" 18 "Hol Hamoed Sukkot (third day)" 19 "Hol Hamoed Sukkot (fourth day)" 20 "Hoshannah Rabbah" optional filter-visible-calendar-holidays output-list all-hebrew-calendar-holidays append] 15 "\
  72. List of dates related to Rosh Hashanah, as visible in calendar window."])
  73. (fset 'calendar-holiday-function-hanukkah #[nil "┴>¡≈\n ┼_ \\ë┼ªT┼Ñ)╟╚╔ ╩ \" E!!! ╠═╬ E!╨╤S!╥D╤!╙D╤T!╘D╤╒\\!╓D╤╫\\!╪D╤┘\\!┌D╤█\\!▄D╤▌\\!▐D╤▀\\!αD»    !,ç" [displayed-month (10 11 12 1 2) displayed-year y m 12 macro-y extract-calendar-year calendar-hebrew-from-absolute calendar-absolute-from-gregorian calendar-last-day-of-month h-y calendar-absolute-from-hebrew 9 25 abs-h filter-visible-calendar-holidays calendar-gregorian-from-absolute "Erev Hanukkah" "Hanukkah (first day)" "Hanukkah (second day)" 2 "Hanukkah (third day)" 3 "Hanukkah (fourth day)" 4 "Hanukkah (fifth day)" 5 "Hanukkah (sixth day)" 6 "Hanukkah (seventh day)" 7 "Hanukkah (eighth day)"] 13 "\
  74. List of dates related to Hanukkah, as visible in calendar window."])
  75. (fset 'calendar-holiday-function-passover-etc #[nil "└    W?à┬├─╞\\E!╚!╔D╚╩\\!╦DD ╚═╬╧Z\"!╨D╚═╬╤Z\"!╥D╚└ª╙U½å╘Z¬ä╒Z!╓D╚╒Z!╫D╚╤Z!╪D╚└ª┘U½å┌Z¬ä█Z!▄D╚═╬▌Z\"└Z!▐D╚═╬▌Z\"!▀D╚═╬S\"!αD╚S!ßD╚T!ΓD╚╙\\!πD╚Σ\\!σD╚µ\\!τD╚Φ\\!ΘD╚╬\\!ΩD╚└\\!δD╚∞\\!φD╚ε\\!∩D╚╘\\!≡D╚╧\\!±D╚≥\\!≤D»4⌡ !67½è°⌡4!6\"66,ç" [7 displayed-month calendar-absolute-from-hebrew 1 15 displayed-year 3760 abs-p calendar-gregorian-from-absolute "Passover" 50 "Shavuot" mandatory calendar-dayname-on-or-before 6 43 "Shabbat Shekalim" 30 "Shabbat Zachor" 2 33 31 "Fast of Esther" "Erev Purim" "Purim" 0 28 29 "Shushan Purim" 14 "Shabbat Parah" "Shabbat HaHodesh" "Shabbat HaGadol" "Erev Passover" "Passover (second day)" "Hol Hamoed Passover (first day)" 3 "Hol Hamoed Passover (second day)" 4 "Hol Hamoed Passover (third day)" 5 "Hol Hamoed Passover (fourth day)" "Passover (seventh day)" "Passover (eighth day)" 12 "Yom HaShoah" 20 "Yom HaAtzmaut" "Lag BaOmer" "Yom Yerushalim" 51 "Shavuot (second day)" optional filter-visible-calendar-holidays output-list all-hebrew-calendar-holidays append] 24 "\
  76. List of dates related to Passover, as visible in calendar window."])
  77. (fset 'calendar-holiday-function-tisha-b-av-etc #[nil "┴W«â┬V?¡╦├┴┬ ┼\\E!╟╚╔ª╩U½å╦Z¬ä╠Z!═D╚╬╩\"!╧D╚╔ª╩U½àT¬é!╨D╚╬╩╔\\\"!╤DF!)ç" [displayed-month 5 9 calendar-absolute-from-hebrew displayed-year 3760 abs-t-a filter-visible-calendar-holidays calendar-gregorian-from-absolute 7 6 20 21 "Tzom Tammuz" calendar-dayname-on-or-before "Shabbat Hazon" "Tisha B'Av" "Shabbat Nahamu"] 9 "\
  78. List of dates around Tisha B'Av, as visible in calendar window."])
  79. (fset 'filter-visible-calendar-holidays #[(l) "└    \n½ö─\n@@!½ç┼\n@C \"\nAë¼l *ç" [nil l p visible calendar-date-is-visible-p append] 4 "\
  80. Return a list of all visible holidays of those on L."])
  81.